home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
1st_b110.zip
/
$$PCP.SCR
< prev
next >
Wrap
Text File
|
1993-01-26
|
467b
|
32 lines
:START
TRANSMIT "ATDT @API$(105)^M"
WAITFOR "CONNECT|BUSY" 30
IF FOUND=1 GOTO LOGIN
PAUSE 1
GOTO START
:LOGIN
TRANSMIT "@D^M"
WAITFOR "TELENET" 5
IF FOUND=1 GOTO OK
GOTO LOGIN
:OK
WAITFOR "TERMINAL=" 30
TRANSMIT "D1^M"
:CITY
WAITFOR "@" 20
TRANSMIT "C D/@API$(108)/24,@API$(106)^M"
WAITFOR "PASSWORD =" 20
TRANSMIT "@API$(107)^M"
WAITFOR "CONNECTED|BUSY"
IF FOUND=1 GOTO DIAL
GOTO CITY
:DIAL
SET_API(156)=0
SET_API(171)=-1
PAUSE 5